home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 95 / pascal / chrtest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-01-15  |  468 b   |  27 lines
  1. PROGRAM test;
  2.  
  3. { See if the chr() function will return 'special' characters }
  4.  
  5. CONST
  6.   {$I gemconst.pas}
  7.  
  8. TYPE
  9.   {$I gemtype.pas}
  10.  
  11. VAR
  12.   mystring : string;
  13.   choice   : integer;
  14.   cpyrite  : char;
  15.  
  16. {$I gemsubs.pas}
  17.  
  18. BEGIN
  19.   IF Init_Gem >= 0 THEN
  20.     BEGIN
  21.       mystring := Concat( 'Copyright ', chr(189), ' 1986' );
  22.       mystring := Concat( '[0][', mystring, '][ End ]' );
  23.       choice := Do_Alert( mystring, 0 );
  24.     END;
  25.   Exit_Gem;
  26. END.
  27.